Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/frmshp10/dati_1.bas

BASIC Source File | 1998-10-06 | 14.7 KB | 513 lines

Attribute VB_Name = "Dati_1"
Option Explicit

'-----Data File

Global D() as Long
Global NumDataPoints as Long
Sub FillData1()
 NumDataPoints =  1982
 Redim D( 3966 )
 D(0) = 0
 D(2) = 248 : D(3) = 400
 D(4) = 248 : D(5) = 401
 D(6) = 248 : D(7) = 402
 D(8) = 248 : D(9) = 403
 D(10) = 248 : D(11) = 404
 D(12) = 248 : D(13) = 405
 D(14) = 248 : D(15) = 406
 D(16) = 248 : D(17) = 407
 D(18) = 248 : D(19) = 408
 D(20) = 248 : D(21) = 409
 D(22) = 248 : D(23) = 410
 D(24) = 248 : D(25) = 411
 D(26) = 249 : D(27) = 411
 D(28) = 249 : D(29) = 412
 D(30) = 249 : D(31) = 413
 D(32) = 249 : D(33) = 414
 D(34) = 249 : D(35) = 415
 D(36) = 249 : D(37) = 416
 D(38) = 249 : D(39) = 417
 D(40) = 249 : D(41) = 418
 D(42) = 249 : D(43) = 419
 D(44) = 249 : D(45) = 420
 D(46) = 249 : D(47) = 421
 D(48) = 249 : D(49) = 422
 D(50) = 249 : D(51) = 423
 D(52) = 249 : D(53) = 424
 D(54) = 249 : D(55) = 425
 D(56) = 249 : D(57) = 426
 D(58) = 249 : D(59) = 427
 D(60) = 250 : D(61) = 427
 D(62) = 250 : D(63) = 428
 D(64) = 250 : D(65) = 429
 D(66) = 250 : D(67) = 430
 D(68) = 250 : D(69) = 431
 D(70) = 250 : D(71) = 432
 D(72) = 250 : D(73) = 433
 D(74) = 250 : D(75) = 434
 D(76) = 250 : D(77) = 435
 D(78) = 250 : D(79) = 436
 D(80) = 250 : D(81) = 437
 D(82) = 250 : D(83) = 438
 D(84) = 251 : D(85) = 438
 D(86) = 251 : D(87) = 439
 D(88) = 251 : D(89) = 440
 D(90) = 251 : D(91) = 441
 D(92) = 251 : D(93) = 442
 D(94) = 251 : D(95) = 443
 D(96) = 252 : D(97) = 443
 D(98) = 252 : D(99) = 444
 D(100) = 252 : D(101) = 445
 D(102) = 252 : D(103) = 446
 D(104) = 252 : D(105) = 447
 D(106) = 252 : D(107) = 448
 D(108) = 253 : D(109) = 448
 D(110) = 253 : D(111) = 449
 D(112) = 253 : D(113) = 450
 D(114) = 253 : D(115) = 451
 D(116) = 253 : D(117) = 452
 D(118) = 254 : D(119) = 452
 D(120) = 254 : D(121) = 453
 D(122) = 254 : D(123) = 454
 D(124) = 254 : D(125) = 455
 D(126) = 254 : D(127) = 456
 D(128) = 254 : D(129) = 457
 D(130) = 255 : D(131) = 457
 D(132) = 255 : D(133) = 458
 D(134) = 255 : D(135) = 459
 D(136) = 255 : D(137) = 460
 D(138) = 255 : D(139) = 461
 D(140) = 255 : D(141) = 462
 D(142) = 256 : D(143) = 462
 D(144) = 256 : D(145) = 463
 D(146) = 256 : D(147) = 464
 D(148) = 256 : D(149) = 465
 D(150) = 256 : D(151) = 466
 D(152) = 257 : D(153) = 466
 D(154) = 257 : D(155) = 467
 D(156) = 257 : D(157) = 468
 D(158) = 257 : D(159) = 469
 D(160) = 258 : D(161) = 469
 D(162) = 258 : D(163) = 470
 D(164) = 258 : D(165) = 471
 D(166) = 258 : D(167) = 472
 D(168) = 259 : D(169) = 472
 D(170) = 259 : D(171) = 473
 D(172) = 259 : D(173) = 474
 D(174) = 259 : D(175) = 475
 D(176) = 260 : D(177) = 475
 D(178) = 260 : D(179) = 476
 D(180) = 260 : D(181) = 477
 D(182) = 261 : D(183) = 477
 D(184) = 261 : D(185) = 478
 D(186) = 261 : D(187) = 479
 D(188) = 261 : D(189) = 480
 D(190) = 262 : D(191) = 480
 D(192) = 262 : D(193) = 481
 D(194) = 262 : D(195) = 482
 D(196) = 262 : D(197) = 483
 D(198) = 263 : D(199) = 483
 D(200) = 263 : D(201) = 484
 D(202) = 263 : D(203) = 485
 D(204) = 263 : D(205) = 486
 D(206) = 264 : D(207) = 486
 D(208) = 264 : D(209) = 487
 D(210) = 264 : D(211) = 488
 D(212) = 264 : D(213) = 489
 D(214) = 265 : D(215) = 489
 D(216) = 265 : D(217) = 490
 D(218) = 265 : D(219) = 491
 D(220) = 266 : D(221) = 491
 D(222) = 266 : D(223) = 492
 D(224) = 266 : D(225) = 493
 D(226) = 267 : D(227) = 493
 D(228) = 267 : D(229) = 494
 D(230) = 267 : D(231) = 495
 D(232) = 268 : D(233) = 495
 D(234) = 268 : D(235) = 496
 D(236) = 268 : D(237) = 497
 D(238) = 269 : D(239) = 497
 D(240) = 269 : D(241) = 498
 D(242) = 269 : D(243) = 499
 D(244) = 270 : D(245) = 499
 D(246) = 270 : D(247) = 500
 D(248) = 270 : D(249) = 501
 D(250) = 271 : D(251) = 501
 D(252) = 271 : D(253) = 502
 D(254) = 272 : D(255) = 502
 D(256) = 272 : D(257) = 503
 D(258) = 272 : D(259) = 504
 D(260) = 273 : D(261) = 504
 D(262) = 273 : D(263) = 505
 D(264) = 273 : D(265) = 506
 D(266) = 274 : D(267) = 506
 D(268) = 274 : D(269) = 507
 D(270) = 274 : D(271) = 508
 D(272) = 275 : D(273) = 508
 D(274) = 275 : D(275) = 509
 D(276) = 275 : D(277) = 510
 D(278) = 276 : D(279) = 510
 D(280) = 276 : D(281) = 511
 D(282) = 276 : D(283) = 512
 D(284) = 277 : D(285) = 512
 D(286) = 277 : D(287) = 513
 D(288) = 278 : D(289) = 513
 D(290) = 278 : D(291) = 514
 D(292) = 279 : D(293) = 514
 D(294) = 279 : D(295) = 515
 D(296) = 279 : D(297) = 516
 D(298) = 280 : D(299) = 516
 D(300) = 280 : D(301) = 517
 D(302) = 281 : D(303) = 517
 D(304) = 281 : D(305) = 518
 D(306) = 282 : D(307) = 518
 D(308) = 282 : D(309) = 519
 D(310) = 283 : D(311) = 519
 D(312) = 283 : D(313) = 520
 D(314) = 283 : D(315) = 521
 D(316) = 284 : D(317) = 521
 D(318) = 284 : D(319) = 522
 D(320) = 285 : D(321) = 522
 D(322) = 285 : D(323) = 523
 D(324) = 286 : D(325) = 523
 D(326) = 286 : D(327) = 524
 D(328) = 287 : D(329) = 524
 D(330) = 287 : D(331) = 525
 D(332) = 287 : D(333) = 526
 D(334) = 288 : D(335) = 526
 D(336) = 288 : D(337) = 527
 D(338) = 289 : D(339) = 527
 D(340) = 289 : D(341) = 528
 D(342) = 290 : D(343) = 528
 D(344) = 290 : D(345) = 529
 D(346) = 291 : D(347) = 529
 D(348) = 291 : D(349) = 530
 D(350) = 291 : D(351) = 531
 D(352) = 292 : D(353) = 531
 D(354) = 292 : D(355) = 532
 D(356) = 293 : D(357) = 532
 D(358) = 293 : D(359) = 533
 D(360) = 294 : D(361) = 533
 D(362) = 294 : D(363) = 534
 D(364) = 295 : D(365) = 534
 D(366) = 295 : D(367) = 535
 D(368) = 296 : D(369) = 535
 D(370) = 296 : D(371) = 536
 D(372) = 297 : D(373) = 536
 D(374) = 297 : D(375) = 537
 D(376) = 298 : D(377) = 537
 D(378) = 298 : D(379) = 538
 D(380) = 299 : D(381) = 538
 D(382) = 299 : D(383) = 539
 D(384) = 300 : D(385) = 539
 D(386) = 300 : D(387) = 540
 D(388) = 301 : D(389) = 540
 D(390) = 301 : D(391) = 541
 D(392) = 302 : D(393) = 541
 D(394) = 302 : D(395) = 542
 D(396) = 303 : D(397) = 542
 D(398) = 303 : D(399) = 543
 D(400) = 304 : D(401) = 543
 D(402) = 304 : D(403) = 544
 D(404) = 305 : D(405) = 544
 D(406) = 305 : D(407) = 545
 D(408) = 306 : D(409) = 545
 D(410) = 306 : D(411) = 546
 D(412) = 307 : D(413) = 546
 D(414) = 307 : D(415) = 547
 D(416) = 308 : D(417) = 547
 D(418) = 308 : D(419) = 548
 D(420) = 309 : D(421) = 548
 D(422) = 309 : D(423) = 549
 D(424) = 310 : D(425) = 549
 D(426) = 310 : D(427) = 550
 D(428) = 311 : D(429) = 550
 D(430) = 311 : D(431) = 551
 D(432) = 312 : D(433) = 551
 D(434) = 312 : D(435) = 552
 D(436) = 313 : D(437) = 552
 D(438) = 313 : D(439) = 553
 D(440) = 314 : D(441) = 553
 D(442) = 314 : D(443) = 554
 D(444) = 315 : D(445) = 554
 D(446) = 316 : D(447) = 554
 D(448) = 316 : D(449) = 555
 D(450) = 317 : D(451) = 555
 D(452) = 317 : D(453) = 556
 D(454) = 318 : D(455) = 556
 D(456) = 318 : D(457) = 557
 D(458) = 319 : D(459) = 557
 D(460) = 319 : D(461) = 558
 D(462) = 320 : D(463) = 558
 D(464) = 320 : D(465) = 559
 D(466) = 321 : D(467) = 559
 D(468) = 321 : D(469) = 560
 D(470) = 322 : D(471) = 560
 D(472) = 322 : D(473) = 561
 D(474) = 323 : D(475) = 561
 D(476) = 323 : D(477) = 562
 D(478) = 324 : D(479) = 562
 D(480) = 324 : D(481) = 563
 D(482) = 325 : D(483) = 563
 D(484) = 326 : D(485) = 563
 D(486) = 326 : D(487) = 564
 D(488) = 327 : D(489) = 564
 D(490) = 327 : D(491) = 565
 D(492) = 328 : D(493) = 565
 D(494) = 328 : D(495) = 566
 D(496) = 329 : D(497) = 566
 D(498) = 329 : D(499) = 567
 D(500) = 330 : D(501) = 567
 D(502) = 330 : D(503) = 568
 D(504) = 331 : D(505) = 568
 D(506) = 332 : D(507) = 568
 D(508) = 332 : D(509) = 569
 D(510) = 333 : D(511) = 569
 D(512) = 333 : D(513) = 570
 D(514) = 334 : D(515) = 570
 D(516) = 334 : D(517) = 571
 D(518) = 335 : D(519) = 571
 D(520) = 336 : D(521) = 571
 D(522) = 336 : D(523) = 572
 D(524) = 337 : D(525) = 572
 D(526) = 337 : D(527) = 573
 D(528) = 338 : D(529) = 573
 D(530) = 339 : D(531) = 573
 D(532) = 339 : D(533) = 574
 D(534) = 340 : D(535) = 574
 D(536) = 340 : D(537) = 575
 D(538) = 341 : D(539) = 575
 D(540) = 341 : D(541) = 576
 D(542) = 342 : D(543) = 576
 D(544) = 343 : D(545) = 576
 D(546) = 343 : D(547) = 577
 D(548) = 344 : D(549) = 577
 D(550) = 344 : D(551) = 578
 D(552) = 345 : D(553) = 578
 D(554) = 346 : D(555) = 578
 D(556) = 346 : D(557) = 579
 D(558) = 347 : D(559) = 579
 D(560) = 347 : D(561) = 580
 D(562) = 348 : D(563) = 580
 D(564) = 348 : D(565) = 581
 D(566) = 349 : D(567) = 581
 D(568) = 350 : D(569) = 581
 D(570) = 350 : D(571) = 582
 D(572) = 351 : D(573) = 582
 D(574) = 351 : D(575) = 583
 D(576) = 352 : D(577) = 583
 D(578) = 353 : D(579) = 583
 D(580) = 353 : D(581) = 584
 D(582) = 354 : D(583) = 584
 D(584) = 354 : D(585) = 585
 D(586) = 355 : D(587) = 585
 D(588) = 355 : D(589) = 586
 D(590) = 356 : D(591) = 586
 D(592) = 357 : D(593) = 586
 D(594) = 357 : D(595) = 587
 D(596) = 358 : D(597) = 587
 D(598) = 358 : D(599) = 588
 D(600) = 359 : D(601) = 588
 D(602) = 359 : D(603) = 589
 D(604) = 360 : D(605) = 589
 D(606) = 361 : D(607) = 589
 D(608) = 361 : D(609) = 590
 D(610) = 362 : D(611) = 590
 D(612) = 362 : D(613) = 591
 D(614) = 363 : D(615) = 591
 D(616) = 364 : D(617) = 591
 D(618) = 364 : D(619) = 592
 D(620) = 365 : D(621) = 592
 D(622) = 365 : D(623) = 593
 D(624) = 366 : D(625) = 593
 D(626) = 366 : D(627) = 594
 D(628) = 367 : D(629) = 594
 D(630) = 368 : D(631) = 594
 D(632) = 368 : D(633) = 595
 D(634) = 369 : D(635) = 595
 D(636) = 369 : D(637) = 596
 D(638) = 370 : D(639) = 596
 D(640) = 370 : D(641) = 597
 D(642) = 371 : D(643) = 597
 D(644) = 372 : D(645) = 597
 D(646) = 372 : D(647) = 598
 D(648) = 373 : D(649) = 598
 D(650) = 373 : D(651) = 599
 D(652) = 374 : D(653) = 599
 D(654) = 375 : D(655) = 599
 D(656) = 375 : D(657) = 600
 D(658) = 376 : D(659) = 600
 D(660) = 376 : D(661) = 601
 D(662) = 377 : D(663) = 601
 D(664) = 377 : D(665) = 602
 D(666) = 378 : D(667) = 602
 D(668) = 379 : D(669) = 602
 D(670) = 379 : D(671) = 603
 D(672) = 380 : D(673) = 603
 D(674) = 380 : D(675) = 604
 D(676) = 381 : D(677) = 604
 D(678) = 381 : D(679) = 605
 D(680) = 382 : D(681) = 605
 D(682) = 383 : D(683) = 605
 D(684) = 383 : D(685) = 606
 D(686) = 384 : D(687) = 606
 D(688) = 384 : D(689) = 607
 D(690) = 385 : D(691) = 607
 D(692) = 386 : D(693) = 607
 D(694) = 386 : D(695) = 608
 D(696) = 387 : D(697) = 608
 D(698) = 387 : D(699) = 609
 D(700) = 388 : D(701) = 609
 D(702) = 388 : D(703) = 610
 D(704) = 389 : D(705) = 610
 D(706) = 390 : D(707) = 610
 D(708) = 390 : D(709) = 611
 D(710) = 391 : D(711) = 611
 D(712) = 391 : D(713) = 612
 D(714) = 392 : D(715) = 612
 D(716) = 392 : D(717) = 613
 D(718) = 393 : D(719) = 613
 D(720) = 394 : D(721) = 613
 D(722) = 394 : D(723) = 614
 D(724) = 395 : D(725) = 614
 D(726) = 395 : D(727) = 615
 D(728) = 396 : D(729) = 615
 D(730) = 397 : D(731) = 615
 D(732) = 397 : D(733) = 616
 D(734) = 398 : D(735) = 616
 D(736) = 398 : D(737) = 617
 D(738) = 399 : D(739) = 617
 D(740) = 399 : D(741) = 618
 D(742) = 400 : D(743) = 618
 D(744) = 401 : D(745) = 618
 D(746) = 401 : D(747) = 619
 D(748) = 402 : D(749) = 619
 D(750) = 402 : D(751) = 620
 D(752) = 403 : D(753) = 620
 D(754) = 404 : D(755) = 620
 D(756) = 404 : D(757) = 621
 D(758) = 405 : D(759) = 621
 D(760) = 405 : D(761) = 622
 D(762) = 406 : D(763) = 622
 D(764) = 406 : D(765) = 623
 D(766) = 407 : D(767) = 623
 D(768) = 408 : D(769) = 623
 D(770) = 408 : D(771) = 624
 D(772) = 409 : D(773) = 624
 D(774) = 409 : D(775) = 625
 D(776) = 410 : D(777) = 625
 D(778) = 411 : D(779) = 625
 D(780) = 411 : D(781) = 626
 D(782) = 412 : D(783) = 626
 D(784) = 412 : D(785) = 627
 D(786) = 413 : D(787) = 627
 D(788) = 414 : D(789) = 627
 D(790) = 414 : D(791) = 628
 D(792) = 415 : D(793) = 628
 D(794) = 415 : D(795) = 629
 D(796) = 416 : D(797) = 629
 D(798) = 416 : D(799) = 630
 D(800) = 417 : D(801) = 630
 D(802) = 418 : D(803) = 630
 D(804) = 418 : D(805) = 631
 D(806) = 419 : D(807) = 631
 D(808) = 419 : D(809) = 632
 D(810) = 420 : D(811) = 632
 D(812) = 420 : D(813) = 633
 D(814) = 421 : D(815) = 633
 D(816) = 422 : D(817) = 633
 D(818) = 422 : D(819) = 634
 D(820) = 423 : D(821) = 634
 D(822) = 423 : D(823) = 635
 D(824) = 424 : D(825) = 635
 D(826) = 424 : D(827) = 636
 D(828) = 425 : D(829) = 636
 D(830) = 426 : D(831) = 636
 D(832) = 426 : D(833) = 637
 D(834) = 427 : D(835) = 637
 D(836) = 427 : D(837) = 638
 D(838) = 428 : D(839) = 638
 D(840) = 428 : D(841) = 639
 D(842) = 429 : D(843) = 639
 D(844) = 429 : D(845) = 640
 D(846) = 430 : D(847) = 640
 D(848) = 431 : D(849) = 640
 D(850) = 431 : D(851) = 641
 D(852) = 432 : D(853) = 641
 D(854) = 432 : D(855) = 642
 D(856) = 433 : D(857) = 642
 D(858) = 433 : D(859) = 643
 D(860) = 434 : D(861) = 643
 D(862) = 434 : D(863) = 644
 D(864) = 435 : D(865) = 644
 D(866) = 436 : D(867) = 644
 D(868) = 436 : D(869) = 645
 D(870) = 437 : D(871) = 645
 D(872) = 437 : D(873) = 646
 D(874) = 438 : D(875) = 646
 D(876) = 438 : D(877) = 647
 D(878) = 439 : D(879) = 647
 D(880) = 440 : D(881) = 647
 D(882) = 440 : D(883) = 648
 D(884) = 441 : D(885) = 648
 D(886) = 441 : D(887) = 649
 D(888) = 442 : D(889) = 649
 D(890) = 442 : D(891) = 650
 D(892) = 443 : D(893) = 650
 D(894) = 443 : D(895) = 651
 D(896) = 444 : D(897) = 651
 D(898) = 444 : D(899) = 652
 D(900) = 445 : D(901) = 652
 D(902) = 445 : D(903) = 653
 D(904) = 446 : D(905) = 653
 D(906) = 446 : D(907) = 654
 D(908) = 447 : D(909) = 654
 D(910) = 448 : D(911) = 654
 D(912) = 448 : D(913) = 655
 D(914) = 449 : D(915) = 655
 D(916) = 449 : D(917) = 656
 D(918) = 450 : D(919) = 656
 D(920) = 450 : D(921) = 657
 D(922) = 451 : D(923) = 657
 D(924) = 451 : D(925) = 658
 D(926) = 452 : D(927) = 658
 D(928) = 452 : D(929) = 659
 D(930) = 453 : D(931) = 659
 D(932) = 453 : D(933) = 660
 D(934) = 454 : D(935) = 660
 D(936) = 454 : D(937) = 661
 D(938) = 455 : D(939) = 661
 D(940) = 455 : D(941) = 662
 D(942) = 456 : D(943) = 662
 D(944) = 456 : D(945) = 663
 D(946) = 457 : D(947) = 663
 D(948) = 457 : D(949) = 664
 D(950) = 458 : D(951) = 664
 D(952) = 458 : D(953) = 665
 D(954) = 459 : D(955) = 665
 D(956) = 460 : D(957) = 665
 D(958) = 460 : D(959) = 666
 D(960) = 461 : D(961) = 666
 D(962) = 461 : D(963) = 667
 D(964) = 462 : D(965) = 667
 D(966) = 462 : D(967) = 668
 D(968) = 463 : D(969) = 668
 D(970) = 463 : D(971) = 669
 D(972) = 464 : D(973) = 669
 D(974) = 464 : D(975) = 670
 D(976) = 465 : D(977) = 670
 D(978) = 465 : D(979) = 671
 D(980) = 466 : D(981) = 671
 D(982) = 466 : D(983) = 672
 D(984) = 467 : D(985) = 672
 D(986) = 467 : D(987) = 673
 D(988) = 468 : D(989) = 673
 D(990) = 468 : D(991) = 674
 D(992) = 469 : D(993) = 674
 D(994) = 469 : D(995) = 675
 D(996) = 470 : D(997) = 675
 D(998) = 470 : D(999) = 676
 D(1000) = 471 : D(1001) = 676
End Sub